home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / gnuplot / gnuplot-3.7.1doc / demo / polar.dem < prev    next >
Text File  |  1999-11-29  |  1KB  |  53 lines
  1. #
  2. # $Id: polar.dem,v 1.1.1.1.2.1 1999/10/11 13:24:50 lhecking Exp $
  3. #
  4. # Show some of the new polar capabilities.
  5. #
  6. set noborder
  7. set clip
  8. set polar
  9. set xtics axis nomirror
  10. set ytics axis nomirror
  11. set samples 160
  12. set zeroaxis
  13. set trange [0:2*pi]
  14. set title "Three circles (with aspect ratio distortion)"
  15. plot .5,1,1.5
  16. pause -1 "Hit return to continue"
  17. set title ""
  18. set key box
  19.  
  20. plot cos(2*t)
  21. pause -1 "Hit return to continue"
  22.  
  23. plot 2*sqrt(cos(t)),-2*sqrt(cos(t))
  24. pause -1 "Hit return to continue"
  25.  
  26. plot sin(4*t),cos(4*t)
  27. set offset 0,0,0,0
  28. pause -1 "Hit return to continue"
  29.  
  30. set xrange [-5:5]
  31. set yrange [-5:5]
  32. plot t/cos(3*t)
  33. pause -1 "Hit return to continue"
  34. set autoscale
  35.  
  36. plot 1-sin(t)
  37. pause -1 "Hit return to continue"
  38.  
  39. set trange [0:12*pi]
  40. plot 2*t
  41. pause -1 "Hit return to continue"
  42.  
  43. butterfly(x)=exp(cos(x))-2*cos(4*x)+sin(x/12)**5
  44. set samples 800
  45. pause 0 "This is a big one (many samples), be patient..."
  46. set title "Butterfly"
  47. set nokey
  48. plot butterfly(t)
  49. pause -1 "Hit return to continue"
  50.  
  51. # undo what we've done above
  52. reset
  53.